Public Class Test3

   Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
      Application.Exit()
   End Sub

   Private Sub btnHourMode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHourMode.Click
      DateTimeUpDown1.Mode = UWPCS3340.TimeMode.Hour
   End Sub

   Private Sub btnMinuteMode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinuteMode.Click
      DateTimeUpDown1.Mode = UWPCS3340.TimeMode.Minute
   End Sub

   Private Sub btnSecondMode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSecondMode.Click
      DateTimeUpDown1.Mode = UWPCS3340.TimeMode.Second
   End Sub

   Private Sub btnSetUnit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetUnit.Click

      Try
         DateTimeUpDown1.Unit = txtUnit.Text.Trim
      Catch ex As Exception
         MsgBox(ex.Message)
      End Try

   End Sub

   Private Sub btnCaption_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCaption.Click

      DateTimeUpDown1.Caption = txtCaption.Text.Trim

   End Sub
End Class
